LEVEL_VERSION(1)
SET_GENERATE_SPEED(300)
START_MONEY(PLAYER0,500)
START_MONEY(PLAYER1,500)
START_MONEY(PLAYER2,105000)
MAX_CREATURES(PLAYER2,45)
MAX_CREATURES(PLAYER0,15)
MAX_CREATURES(PLAYER1,15)
SET_GAME_RULE(AlliesShareVision,1)
SET_GAME_RULE(AlliesShareCta,1)
SET_GAME_RULE(AlliesShareDrop,1)
ALLY_PLAYERS(PLAYER0,PLAYER1,1)
ALLY_PLAYERS(PLAYER1,PLAYER0,1)
SET_GAME_RULE(ImpWorkExperience,300)
SET_CREATURE_PROPERTY(IMP,NO_CORPSE_ROTTING,1)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,DEMONSPAWN,10)
SET_CREATURE_PROPERTY(DARK_MISTRESS,NO_IMPRISONMENT,1)
SET_CREATURE_PROPERTY(KNIGHT,LORD,0)
SET_CREATURE_PROPERTY(AVATAR,LORD,1)

QUICK_OBJECTIVE(1,"Welcome Keeper, this Realm is Treacherous and Treasureous. Your steps deside if Time will be on your side or against you.Explore with Care and dont forget to share.")


IF_CONTROLS(PLAYER2,IMP < 20)
  NEXT_COMMAND_REUSABLE
  MAGIC_AVAILABLE(PLAYER2,POWER_IMP,1,1)
 ENDIF

IF_CONTROLS(PLAYER2,IMP >= 20)
  NEXT_COMMAND_REUSABLE
  MAGIC_AVAILABLE(PLAYER2,POWER_IMP,0,0)
ENDIF


COMPUTER_PLAYER(PLAYER2,0)

ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(BUG,20)
ADD_CREATURE_TO_POOL(DEMONSPAWN,20)
ADD_CREATURE_TO_POOL(TROLL,20)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(HELL_HOUND,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(ORC,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)
ADD_CREATURE_TO_POOL(GIANT,20)

CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,0)
CREATURE_AVAILABLE(PLAYER0,BUG,1,0)
CREATURE_AVAILABLE(PLAYER1,BUG,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,HELL_HOUND,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,0)
CREATURE_AVAILABLE(PLAYER0,GIANT,1,0)
CREATURE_AVAILABLE(PLAYER1,GIANT,1,0)
CREATURE_AVAILABLE(PLAYER2,DARK_MISTRESS,1,0)

ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER1,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER2,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER2,PRISON,1,0)
ROOM_AVAILABLE(PLAYER2,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(PLAYER2,TEMPLE,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_POSSESS,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER2,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER2,POWER_CHICKEN,1,0)

TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)

DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)

REM FARTBOX

SET_BOX_TOOLTIP(22,"ANNOYANCEBOX: Send a Fart to your Friend.")

REM # "FARTBOX: All friendly minions get happy."
IF(PLAYER0,BOX22_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	PLAY_MESSAGE(PLAYER1,SOUND,95)
ENDIF

IF(PLAYER0,BOX22_ACTIVATED >= 1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX22_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,23,22,PLAYER0)
ENDIF


SET_BOX_TOOLTIP(23,"ANNOYANCEBOX: Send a Fart to your Friend.")

REM # "FARTBOX: Fully restores your Dungeon Heart."
IF(PLAYER1,BOX23_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	PLAY_MESSAGE(PLAYER0,SOUND,94)
ENDIF

IF(PLAYER1,BOX23_ACTIVATED >= 1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER1,BOX23_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,24,23,PLAYER1)
ENDIF


REM ROOM AVAILABILITY


IF(PLAYER0,TEMPLE >= 1)
	ROOM_AVAILABLE(PLAYER0,TEMPLE,1,1)
ENDIF

IF(PLAYER1,TEMPLE >= 1)
	ROOM_AVAILABLE(PLAYER1,TEMPLE,1,1)
ENDIF

IF(PLAYER0,BRIDGE >= 1)
	ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
ENDIF

IF(PLAYER1,BRIDGE >= 1)
	ROOM_AVAILABLE(PLAYER1,BRIDGE,1,1)
ENDIF

IF(PLAYER0,TRAINING >= 1)
	ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ENDIF

IF(PLAYER1,TRAINING >= 1)
	ROOM_AVAILABLE(PLAYER1,TRAINING,1,1)
ENDIF

IF(PLAYER0,TORTURE >= 1)
	ROOM_AVAILABLE(PLAYER0,TORTURE,1,1)
ENDIF

IF(PLAYER1,TORTURE >= 1)
	ROOM_AVAILABLE(PLAYER1,TORTURE,1,1)
ENDIF

IF(PLAYER0,GRAVEYARD >= 1)
	ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,1)
ENDIF

IF(PLAYER1,GRAVEYARD >= 1)
	ROOM_AVAILABLE(PLAYER1,GRAVEYARD,1,1)
ENDIF

IF(PLAYER0,SCAVENGER >= 1)
	ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,1)
ENDIF

IF(PLAYER1,SCAVENGER >= 1)
	ROOM_AVAILABLE(PLAYER1,SCAVENGER,1,1)
ENDIF

IF(PLAYER0,PRISON >= 1)
	ROOM_AVAILABLE(PLAYER0,PRISON,1,1)
ENDIF

IF(PLAYER1,PRISON >= 1)
	ROOM_AVAILABLE(PLAYER1,PRISON,1,1)
ENDIF
REM PARTY PARTY DISCO DISCO

CREATE_PARTY(p1)
	ADD_TO_PARTY(p1,ARCHER,1,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p1,ARCHER,1,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p1,BARBARIAN,1,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p1,BARBARIAN,1,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p1,MONK,1,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p1,MONK,1,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p1,WIZARD,1,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p1,WIZARD,1,300,ATTACK_DUNGEON_HEART,0)


CREATE_PARTY(p2)
	ADD_TO_PARTY(p2,WITCH,3,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p2,WITCH,3,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p2,SAMURAI,3,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p2,SAMURAI,3,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p2,GIANT,3,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p2,GIANT,3,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p2,DWARFA,3,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p2,DWARFA,3,300,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(p3)
	ADD_TO_PARTY(p3,KNIGHT,5,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p3,ARCHER,5,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p3,ARCHER,5,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p3,FAIRY,5,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p3,FAIRY,5,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p3,THIEF,5,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p3,THIEF,5,500,ATTACK_DUNGEON_HEART,0)
	
CREATE_PARTY(p4)
	ADD_TO_PARTY(p4,KNIGHT,8,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p4,WIZARD,8,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p4,WIZARD,8,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p4,SAMURAI,8,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p4,SAMURAI,8,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p4,MONK,8,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p4,MONK,8,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p4,TIME_MAGE,8,800,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(p5)
	ADD_TO_PARTY(p5,KNIGHT,10,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p5,FAIRY,10,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p5,FAIRY,10,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p5,BARBARIAN,10,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p5,BARBARIAN,10,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p5,GIANT,10,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p5,GIANT,10,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p5,DWARFA,10,800,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(p5,DWARFA,10,800,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(p6)
	ADD_TO_PARTY(p6,KNIGHT,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p6,WIZARD,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p6,WIZARD,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p6,SAMURAI,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p6,SAMURAI,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p6,MONK,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p6,MONK,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p6,TIME_MAGE,8,250,DEFEND_LOCATION,0)


CREATE_PARTY(p7)
	ADD_TO_PARTY(p7,KNIGHT,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p7,WIZARD,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p7,WIZARD,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p7,SAMURAI,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p7,SAMURAI,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p7,MONK,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p7,MONK,8,250,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p7,TIME_MAGE,8,250,DEFEND_LOCATION,0)


CREATE_PARTY(p8)
	ADD_TO_PARTY(p8,KNIGHT,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,KNIGHT,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,FAIRY,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,FAIRY,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,WIZARD,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,WIZARD,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,SAMURAI,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,SAMURAI,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,BARBARIAN,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,BARBARIAN,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,ARCHER,10,500,DEFEND_LOCATION,0)
	ADD_TO_PARTY(p8,ARCHER,10,500,DEFEND_LOCATION,0)


CREATE_PARTY(p9)
	ADD_TO_PARTY(p9,AVATAR,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,AVATAR,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,FAIRY,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,FAIRY,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,FAIRY,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,FAIRY,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,WIZARD,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,WIZARD,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,SAMURAI,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,SAMURAI,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,BARBARIAN,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,BARBARIAN,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,ARCHER,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,ARCHER,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,KNIGHT,10,500,DEFEND_HEART,0)
	ADD_TO_PARTY(p9,KNIGHT,10,500,DEFEND_HEART,0)

CREATE_PARTY(Distraction)
	ADD_TO_PARTY(Distraction,THIEF,3,100,STEAL_GOLD,0)
	ADD_TO_PARTY(Distraction,THIEF,3,100,STEAL_GOLD,0)
	ADD_TO_PARTY(Distraction,THIEF,3,100,STEAL_GOLD,0)
	ADD_TO_PARTY(Distraction,THIEF,3,100,STEAL_GOLD,0)
	ADD_TO_PARTY(Distraction,THIEF,3,100,STEAL_GOLD,0)
	ADD_TO_PARTY(Distraction,THIEF,3,100,STEAL_GOLD,0)
	ADD_TO_PARTY(Distraction,THIEF,3,100,STEAL_GOLD,0)
	ADD_TO_PARTY(Distraction,THIEF,3,100,STEAL_GOLD,0)

REM WAVES

IF_SLAB_TYPE(31,113,PRETTY_PATH)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p1,-1,1)
	SET_TIMER(PLAYER_GOOD,TIMER0)
ENDIF

IF_SLAB_TYPE(113,113,PRETTY_PATH)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p1,-2,1)
	SET_TIMER(PLAYER1,TIMER0)
ENDIF

IF(PLAYER0,TOTAL_CREATURES >= 15)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p1,-1,1)
	
ENDIF

IF(PLAYER1,TOTAL_CREATURES >= 15)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p1,-2,1)
ENDIF


IF(PLAYER_GOOD,TIMER0 >= 7000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p2,-1,1)
	SET_TIMER(PLAYER_GOOD,TIMER1)
ENDIF

IF(PLAYER1,TIMER0 >= 7000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p2,-2,1)
	SET_TIMER(PLAYER1,TIMER1)
ENDIF


IF(PLAYER_GOOD,TIMER1 >= 6500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p3,-1,1)
	SET_TIMER(PLAYER_GOOD,TIMER2)
ENDIF

IF(PLAYER1,TIMER1 >= 6500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p3,-2,1)
	SET_TIMER(PLAYER1,TIMER2)
ENDIF


IF(PLAYER_GOOD,TIMER2 >= 6500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p4,-1,1)
	SET_TIMER(PLAYER_GOOD,TIMER3)
ENDIF

IF(PLAYER1,TIMER2 >= 6500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p4,-2,1)
	SET_TIMER(PLAYER1,TIMER3)
ENDIF

IF(PLAYER_GOOD,TIMER3 >= 8500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p5,-1,1)
	SET_TIMER(PLAYER_GOOD,TIMER4)
ENDIF

IF(PLAYER1,TIMER3 >= 8500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p5,-2,1)
	SET_TIMER(PLAYER1,TIMER4)
ENDIF


IF(PLAYER_GOOD,FLAG1 == 0)
	IF(PLAYER_GOOD,TIMER4 >= 9000)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p5,-1,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER_GOOD,TIMER4)
	ENDIF

	IF(PLAYER1,TIMER4 >= 9000)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p5,-2,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER1,TIMER4)
	ENDIF
ENDIF


IF(PLAYER0,TIMER0 >= 7500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p5,-1,1)
	SET_TIMER(PLAYER0,TIMER1)
ENDIF

IF(PLAYER2,TIMER0 >= 8500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p5,-2,1)
	SET_TIMER(PLAYER2,TIMER1)
ENDIF

IF(PLAYER0,TIMER1 >= 10000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p5,-1,1)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER1)
ENDIF

IF(PLAYER2,TIMER1 >= 11500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p5,-1,1)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER2,TIMER1)
ENDIF


REM FORTRESS


IF_ACTION_POINT(3,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p6,4,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,5,1)
ENDIF

IF_ACTION_POINT(6,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p6,7,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,8,1)
ENDIF


REM FORTRESS LEFT SIDE

IF_ACTION_POINT(19,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,-6,1)
ENDIF
IF_ACTION_POINT(11,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,-6,1)
ENDIF
IF_ACTION_POINT(20,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,-5,1)
ENDIF
IF_ACTION_POINT(18,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,-5,1)
ENDIF
IF_ACTION_POINT(13,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,Distraction,-1,1)
ENDIF
IF_ACTION_POINT(12,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,Distraction,-1,1)
ENDIF
IF_ACTION_POINT(10,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p8,-4,1)
ENDIF

REM FORTRESS RIGHT SIDE

IF_ACTION_POINT(22,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,-8,1)
ENDIF
IF_ACTION_POINT(21,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,-7,1)
ENDIF
IF_ACTION_POINT(17,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,-8,1)
ENDIF
IF_ACTION_POINT(16,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p7,-7,1)
ENDIF
IF_ACTION_POINT(15,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,Distraction,-2,1)
ENDIF
IF_ACTION_POINT(14,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,Distraction,-2,1)
ENDIF
IF_ACTION_POINT(9,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p8,-3,1)
ENDIF

REM WHITE HEART

IF_ACTION_POINT(1,ALL_PLAYERS)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,p9,2,1)
ENDIF



REM MUSIC

IF_ACTION_POINT(25,ALL_PLAYERS)
	SET_MUSIC(8)
ENDIF

REM CREATURE LIMIT

IF(PLAYER0,TOTAL_CREATURES >= 10)
	QUICK_INFORMATION(2,"Be Careful Keeper, an old Curse Limits your and your Allies Creature Capabilities to a maximum of 15 Creatures that can be attracted through the Portal and 30 Creatures overall! So think wise on what you try to Convert.")
ENDIF




REM WIN/LOOSE CONDITION

IF(PLAYER2,DUNGEON_DESTROYED == 1)
	ADD_TO_FLAG(PLAYER_GOOD,FLAG0,1)
	ADD_TO_FLAG(PLAYER_GOOD,FLAG1,1)
	SET_TIMER(PLAYER0,TIMER0)
	SET_TIMER(PLAYER2,TIMER0)
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
	ADD_TO_FLAG(PLAYER_GOOD,FLAG0,1)
ENDIF

IF(PLAYER_GOOD,FLAG0 == 2)
	WIN_GAME
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED == 1)
	LOSE_GAME
ENDIF